home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / kuang / kuangeleven28.lha / Rexx / Pub / remotesys.AMIRX < prev   
Text File  |  1997-02-06  |  1KB  |  54 lines
  1. /* Kuang 11 Public Channel Plugin - Remote Sysop commands
  2.    Works only in autochannels.
  3.    Requires s flag
  4.  
  5.    To install add following commands
  6.    ADDF
  7.    ADDH
  8.    SETF
  9.    SAVE
  10. */
  11. options results
  12. parse arg nick channel pxf pxt imop autochan text
  13. if ~autochan|pos('S',pxf)=0 then exit
  14. "GETMYNICK"
  15. mynick=result
  16. parse var text command target args
  17. upper command
  18. if target='-' then target=''
  19. select
  20.     When command='ADDF' then do
  21.         Select
  22.             when target='' then notice(nick,'Specify user')
  23.             when args='' then notice(nick,'Specify flags')
  24.         otherwise
  25.             setclip('st_rsys',nick)
  26.             amrx('kuang11c ADDF' target args)
  27.         end
  28.     end
  29.     When command='ADDH' then do
  30.         if target~='' then do
  31.             setclip('st_rsys',nick)
  32.             amrx('kuang11c ADDH' target args)
  33.         end
  34.         else notice(nick,'Specify user')
  35.     end
  36.     When command='SETF' then  do
  37.         Select
  38.             when target='' then notice(nick,'Specify user')
  39.             when args='' then notice(nick,'Specify flags')
  40.         otherwise
  41.             setclip('st_rsys',nick)
  42.             amrx('kuang11c SETF' target args)
  43.         end
  44.     end
  45.     When command='SAVE' then do
  46.         setclip('st_rsys',nick)
  47.         amrx('kuang11c SAVEF')
  48.     end
  49. otherwise
  50. end
  51. exit
  52. amrx:;'SAY /RX' arg(1);return 0
  53. notice:;'RAW NOTICE' arg(1) ':'arg(2);return 0
  54.